Sub RemoveDuplicatedRows()
Dim last_row%
last_row = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("$A$1:$E$" & last_row).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlNo
End Sub
